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2 7 Off B*-"ejC£V*T£H3*lfc&»T?&<5WDATA12, WDATA13, WREC02 
, WDATA21, WDATA22, &t>*WDATA71 fe^ffif- # £ g £ . 
[0 0 0 5] 

03 4 Jc^i-y-^^n^^A^^^^Sr^v^T^ffi^-^^B =8:^*1 
f Sn- KB^afe-TSi:, 13 3 5 IZB"T J: ? ^V-^7"n A##e>*i£„ 03 
5lC&V>T, 2 4 Off g^e, 2 7 Off g*T?©3- K*<Bft*S tlT V^„ 
[0 0 0 6] 

xyn^Ait 0 3 4 ic^-rcoBOL T*SBKE3tifcy->^yn^^^i:i$i^rac 

[0 0 0 7] 



ffilE#2 003-3001441 



#2002—285046 



[0 0 0 8] 

[#i*#iiK l ] 

ftm¥-7 - 2 3 9 7 8 8^Am (®M 0 0 1 0 frbSigO 015, 01 

) 

[0 0 0 9] 

[38«8##* l «fc e> h -r s mm] 

[0 0 10] 

• 1/3- K (P§««^^^f 5f-^Si) ©^*<fc%-»«:«lfi!t-r*7 2 

03 410=3 5 JCj^COBOL T*IB*& $ tlfe V - X -f U 7=y A £M ^T, ±13 (HI 
SlCOVNT«fc y^WJCttW-TS. 03 4 iC^-rV-^n ^AcfJ© 1 3 Off 
B^e> 1 7 Off g£T% 2 1 Off B, &&2 2 Off B JCfc V>T5t^$ tlfc IREC01 
, IDATA11, IDATA12, I DATA 13, IDATA14, WDATA12&t>*WDATA13te, 

t£B v& & co iz&fr 03 sic^-rv-^n^Afcfc^T, 

©*M^-#^Btel&i<$*l&v^ ^M^-^BIRECOlte, 7 0ffg<£>SE 
LECT^T*IFILE01*^ffi$4xTfc U, Mf- # ^ g IDATA11, IDATA12, IDATA 
13,S:t>*IDATA14li, 1/3- FIREC01 &Mt5f-^« BT*&y, 
^-#SgWDATA12;&tM)ATA13te, 1/3- KWRECOlSrflUsR-rS^-^^BT?*)* 

[0011] 

03 6M3 7icj^t-c^gBM£*ifcy-*^n^Afre>, cobol 

[0 0 12] 

L L & # £ > 3>t?:x-#{C;}3tt£*^y fWte&PBUC & S *> T? ttfc V*. 



4 



ffilE#2 003-3001441 



#2002—285046 



[0013] 
[0014] 

[0 0 15] 

[^M&«?^-rs^«xz)#m] 
±sawfflS:»ssfr*fc«)tc, *»wcDi«i*jc*n«, zfutf^Azmmit-t 

[0 0 16] 

t«, mmm^**)-??- 9-&Ev>'pte< zfrmmr-xm 



5 



ffifl# 2003-3001441 



#2002—285046 



[0 0 1 7] 

[0 0 18] 
[0 0 19] 

2 biz. ±3Bf s -*^BH*5#®tt, »£*i£±fB»<Z>*M^- 

[0 0 2 0] 



6 



miiE#2 003-3001441 



#2002—285046 



[0 0 2 1 ] 

[0 0 2 2] 
[0 0 2 3] 



mil#2 003-3001441 



#2002—285046 



[0 0 2 4] 
[0 0 2 5] 

Jcn-KS-e, -e©H, ±IBi:^{C{cLT j e©3>t 0 jL-^{c^<Dn>tfn.- 

a 

[0 0 2 6] 
[0 0 2 7] 

-x7uy^i*tz&£ftz7-$T%gm&fflffi?z£5izv-x7uy^&zm 
mit-?z> a mi izb* <ke)ic, twiitin -r-#5igft&mgp2, ^~ 



ffiH#2 003-3001441 



#2 002-285046 



*£SP6, ¥!l£l£*&*!tt7, A,fttfii^#gp 8 , -r-*£B*#&aP9, Affi;dgp 
10. ^am#»*ll, :r-#«Bi§*»&M3Pi 2&tf*W£7-*TRB 
V* h*SM3Pl 3 £{ilx.3 0 
[0 0 2 8] 

r-dtSB&^^U ±{C@H« (l/>frtf h) *&ffi-r-*^B 

fcRo^c&JB^-^Brt^fcSilfl*: 1 o©f-^5Si:l|!it'$5^ 

ica^i'rs. Affi^gpioti, a.— tf^Sjg^ei (Dmiz&vzmm&^vm 

[0 0 2 9] 

yn^^A^MBPl 1 tt, Am^rSPl 0 Sr^LTA^Stife V-^^n 

t 1 -* ai'Jx h&MSl 3(i, *flgf-^S@'Jxh™t§ 0 ^¥3^ 
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tal2JCJ:oT#^3tl<5. 010 (C^f 1/-Y 7 r> Mc£V^T\ 
^idatall^, mm%&ffi-t2>mmtet*12£<Z>mKte. T5^y*yb(Dt=.& 
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[0 0 5 0] 

struct { 

char idatall [3] ; 

int idatal2 ; 
} irecOl; 

[0 0 5 1 ] 



ffi!iE#2 003-3001441 



mi 002-285046 



1) *r, **&«)fe»6tt, PgJifliSt^o^-^g, osyi/n-K&y 

[0 0 5 2] 
-IREC01, WREC01, WREC02 

2) ffiHT, il&f¥!!5£3P 6 ±|H1) T*»m£*l£^-#3CB&C*fbT, 
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■rtlHl 1 (c) JkT$ (d) {C^-t<fce>lC&3 0 Ell 1 (c) JkX* (d) ^e>, 

[0 0 6 2] 

01 Al. 

02 FILLER PIC X(20). 

b) mttfaomm 
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3jc&£„ in i 2 (a) Tkzt (b) tc^-r u>r y*? hjkTf-f-zmunm 

te, ^tl^tlEU 2(c) RZ* (d) C^t-^^JC^^o Ell 2 (c) RXf (d 
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01 FILLER PIC X(20). 
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zms-t^xizMLx. ar^m^izm^^xmm^tmm 
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- m m <d & ^ t-* - # s & ^ $ i± x mm £ s. 0 
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t at # $ ti « -r ^ t © ^ - # a g * « # 5 s - * * a x*& & t -r s . 
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03 CI PIC X(10). 

03 C2 PIC X(10). 

02 B3 PIC X(20). 
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01 Al. 

02 Bl PIC X(20). 

02 B2. 

03 FILLER PIC X(20). *> 1 EI g :fu^#|6jCDi|&J 
02 B3 PIC X(20). 

7=-^^BB2^0FILLER3Se^*&$tlSo ^TlC^I" 2 HI g CD 
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01 Al. 

02 Bl PIC X(20). 

02 FILLER PIC X(20). *> 2 © g rjR^fi! 0>&#& 

02 B3 PIC X(20). 
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01 Al. 

02 FILLER PIC X(40). *> 3 ® g : grf^#[pJ<Z>^&J 
02 B3 PIC X(20). 
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01 Al. 

02 FILLER PIC X(60). *> 4 MB 'm&JjfaCDMffi 

T r -^«@Al^^FILLER^g^^$tl^> 0 ^(Dffig:, ^TlC^f 5®gO 
[0 0 7 5] 

01 FILLER PIC X(60). *>5mg:^^fBl©^ 
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, Bi2©s 4 concfffjcfevNT^ffl^-^ssMffiSps iz&^TMmznttm 
mumm^(Dii<4 y* fcizmfettMt.-fz^^-tmg^otfj y$ 



ffi|IE#2 003-3001441 



#2002-285046 



[0 0 7 7] 

mi 3&tfi4ic, 0 3 ic^fv-^n ^A^AtC^S^JJt^-* 
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3) i,M©f-^asffl«gfi oar, «B«tit*£vo) 
& mm -t & m ic ? - * m b mm ® q i c j; o t # m £ ti & . 
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*> ti & m $k n i c o v % t m m -t z> . 

5^B A&tf B#I85£3;ftT^&V^J!gtCl-£ (S 1 l&tfS 1 2) „ Wi^X . 

B#&sfr5#2MJfe*-« (S 1 3) o ^Ttf^-^BlCov^ii 
mmfeZfi^fcmiZ (S 1 3 : No) , @19®S4 2tC5itf (tftjfi) . 
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i4) 0 m*.it* maiZTjk^y-x-yuy^Azmmitirzm'B?. mimz. -r- 

[0 0 8 0] 

gAtfmzmfeznx^^fr'gfrmfe-tz (sis) „ ^tdm^A^m^^tix 

(S15:Yes), MffiWfeB 6 tMHI^t 1 - # « @ hp*© 

j&v &2nfcT~*mBiz^>^T<D®immmz rm%.m&i izmfetzz-tizz 

U, f©f-^«g&«gAi: LXMfe-tZ (S l 6) „ Sl 6<Dmfe%k. MM 

iisi3{c^^, 0 A-hmizmfeznT^zm^, mmm&m6{t. i&m^ti 

fcf-^S@5:S@Bi: bright" £ (S 1 7) . SI 7 (DWlfelZ, S 1 6 (Dm 
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, ^@ Ali^g B©I«@t^S^l!l^tS (SI 8) 0 ^BA^SBCD 
iSgt'^Si^ (S 1 8 : Ye s) , jfcjfoWjfett 6 tt, *flgf-*«gn 

. TS»nfffiU&*fe>. f bt, H«mfffiL 0 1 7 tc^t S 2 0 tcii 

tf. S@A^SB0i«gt^^ (SI 8 : No) , £jft$[jg«|S 6 tt, HI 
1 8 iC^fS 2 7 {Ciitf. 
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«gA#^BBJ^©^g@£f£fcfcV^-£ (S20:Yes), S 2 1 iZM 

foams A&mfemmmmiz rMm°Si zmfei^ (S22) , ^@b© 

^M^«#tc rgg^nlj fcig^-ts (S2 3) 0 m^[|^SP6«, 

fcifclS^bT (S24) , H16CDS1 3 (CM*. 
[0 0 8 4] 

S@A^@Bg^«g$:jfoi^ (S2 0:No) , ^W^SP 6 ft, 
SBAMSSBSjR^t l/T ( S 2 5&tf S 2 6). EI 1 6 CD S 1 3 {CM£ 

□ 

[0 0 8 5] 

±&<DS 1 8iC&^T, 5BAM@BfflllSt^l^ (S 1 8 : N o) 

frmfetZo mBAtmgB(DWimMtfm£v&z>mi$ (s 2 7 : y e s > , s 

2 8 -e■^)T^V^^-a• (S27:No) , H19©S38 JCji&o 

[0 0 8 6] 

S2 8JC;fcV^, iM$¥(l5£§|5 6 ^f-^a@ 'J X hMf-^Sg# 
#iC»^T, aSB(Mg?:ioAWJSt5 (S28) „ fcfc, S28 

s 2 o<Dmfe£mmT*&z> 0 

[0 0 8 7] 

SBB«@5:jfoi^ (S 2 8 : Ye s) , *|iJSf-^aBn hftCD 

fct (S2 9), S3 OlCit&o «S B;^3lB£J#£&V^1|- (S 2 8 : N o 
) > S29 ZfttD&^XS 3 OlCiifr,, SgB^fg^oi^ (S 3 0 : N 
o) , S 3 7 (CiiOo 
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ffiWtTgBBZfeffl-tZMI&tft. &ffi?Z>m®T'$>Z>fr : §frmfe?Z> (S3 1 

^ S3 2{Cii^, EBA&tf]gBBlCo^Ttm#fa(B&ifoS:*Te>. * ? T?fc 
V^»£\ S 3 7 fCiit/o 
[0 0 8 9] 

[0 0 9 0] 
[0 0 9 1 ] 

rji^ojj SSSI (S34), «IB®fgjli«ttffc rirf^pjj 
3 (S3 5) . f©ft, gjft$f£ffi 6 tt, «BB§:^SS^i:LT (S2 4) , ® 
160S13 {CM^o 
[0 0 9 2] 

S 3 OXitS 3 lOflgtNot'feofei^ S37tCfe^T, Mffim 
S8P6tt, ^@ At L/T, ^&«BB tUTlg^ftTV^T-'-^BSrlg^L 
fcfcU S@B *<Z)f£, 01 6 CDS 1 3 &CJ!S 0 

[0 0 9 3] 



2 4 
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±a©S2 7©flgT?NoT»5»^ £Ufttf&fl|S 6 f*. ??»Pfffi U £ $ tlT 
^fc^a^frfifefe-*-* (S 3 8) . ISWPffflU&SftT^fc^S-^ (S 3 8 : Y 
e s) , HM&W)fe»6a:, J%BB tLXmfeZfrT^ZT-ZmBZmgAtV 
TmfeLZa&L (S 3 9) , $ P,{c, «gBS:*«gi: LTigJtfS (S 4 0) 
= 01 6©S 1 3 JCM£o IS»n?fflL&LTV^«-£ (S3 8 : No) 

icigjgu ®>mitnMti?iiiL<Di%tfftL7tizm£ (S4 i) . $e>sc ^s«p? 

t>*fflL5t:> o£ UTO^ffiO<Z>n¥tfffib7cXte*-f >70-i;l«j (S4 2) , 
[0 0 9 4] 

112 o**£2 7tc, 03 ic^ty-^yn^^A^o^tiiifiitj^a^ife, 

* b<Dft^*7jk~? 0 02 0fr£ 2 7lCfeVAT, SPBSraRSlTtSSPi*-^ ¥ffj£«t 

3cb£„ hw©««wii*3ttjtfli«i§*flf«&m'r. 020 

[0 0 9 5] 



2 5 



ffil£#2 003-3001441 



#2002—285046 



mx.it* irecoi (m, m) nmmztix^zm^ ^-^birecoh*, r« 
£sf#j m&mmt r**&*fj x$>zz 

[0 0 9 6] 

©pgi©s o oice^t mfemm*ftz>M) , ^h^t-'-^b© 

rtlRkmT©£fc*JT-&S. 

[0 0 9 7] 

IRECOI, IDATA11, IDATA12, IDATA13, I DATA 14, WDATA12, WDATA13, WREC02, 
WDATA21, WDATA22 

y^BA&tf£BB#*aB5£fcfc*J, 18184 lCfcV*T S 1 4 £H 

n-t&z. y^-^^siREcoi^mmsti, *^u±©-t$*&M^K:*&M£ 

tiSo ©pg5icfcv*TS i 5 zmft-rzziiiz & y % - iRECOi©^ffifi|#te r^j 

5(BUX h*>&^-#^BIDATAll#Jfcffi£;ftT^BB £ LTtg££*l£#, # 
[0 0 9 8] 

«»8**& 1 4lCfrttT, «BAjfttJf«BB38Cflaxgane. 02 1©|£|5gl4 

-?tlIDATAll y g:^IDATA12T'&^ 0 01 3 (C^fr- # BSMS** km P, «fc 
»C, IDATAll&tfIDATA12fcm*H«T?tt&<, IDATA12«^-« g 

^£#>, apgi 5^e> i nzfrvxs 2 7^e>s 3 6 mft>ti2> a -e©*^, 0 
■fti r ^ri &t>* r^j nbxmfezti, iMTn2<DWMmm%.xfmfe%smmmt 

•eti-Tti r^j 2fctf rgffj £LTig^£*i3 0 o**;, idataii^ idatai2(co v> 

Ttm;£ffl©&&#T^tBT?&Sfc®£a*lS. $e>fC, ^BBtt^K^©^JBJC 
[0 0 9 9] 

02 2<DMVgl 7©^, 02 2©©pgl 8^e>«i2 1 CfrtfT, ±SB4lW« 
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iZLXS 1 3^e>S 3 6rfmft2nZ>ZiHZ£ »J, IDATA11 £: IDATA13(Co ^Tta 
&%fa<DMffiW»SMT*2b2>£.n%.Zn2>o £<d{C, H 2 3 ©®pg 2 2 *>e> 2 5 JC 
frttT, ±ia^^tCUTIDATAll^IDATA14lCoVNTI5^^(qI(Z)^^*'5Br|gT?& 
££f85t£*l3 0 02 3<Z)^pg2 5CD^, 02 3 ©M2 6&tf 2 7 CfrttT S 
1 3 fr£ S 1 7^Hff £*IS3£ICJ: y, WDATA12*^gB h b TtgjtSJlS . I 
DATAllttWDATA120^BT*tt^< (S 1 8 0fjSt'No) , fro, IDATA11 £: WD 
ATA12CD£i:^gt£im£T*te&^£#> (S 2 7 0f!lgtN o) , 02 3©^Pg2 8 
IC^V>TS 4 1 fcHfrTSriUCfcU, n^ffll/TCT?** S l 9 Knurrs. ^© 
HOSIAX^B B ft, SHillif ajU«rtC38SS4xfeIREC0mtfIDATAlll?*>S 

o 

[0 10 0] 

IRECOH±IDATAll©jK«BT?S»y, ±|H(C J3 VxT«ff^K^©^$:tf o 

IDATAllJS^O^B&tffc&V*. fiEoT, 0 2 4 ©|g|5g 2 9 fr P>M 
3 11C^3VNT, S 2 2fre>S 2 4*^ffStl-5. ^0^, 0 2 4 {C^f £ O iZ 

r^J tLTmfeZn&o o£'j, IRECOl^IDATAllJCoV^Tffl-?*!^©^* 4 
*$j¥!l^fC <fcoT> T-*-#^gIREC01, IDATA11, I DATA 12, I DATA 1 3$: T$ I DATA 1 4 

i o©^-*^mc^^fgT?&5£w^£*i&. 

[0101] 

02 4©|gpg3 10>ffe, 02 4<Z)|gp@3 2&tf®8 3 3&C£VnTS 1 3 fr S 

1 7 fc^ffTSifctCJ: Ai: LTIRECOl&ggJtU B i: UT WDATA1 
2£t8!5£-f£ 0 UfrL, IREC0mWDATA12<Z>£|JggT*&& <, fio, IRECOlilWDAT 
A120&^B«:|M£"T?M:fcif*fc«>, ~*l£<A^S &^1-&VttT*#&^£¥!l5£ 
£4l£ 0 ^©^, 02 4tf>|gpg3 4&t>*fgP§3 5 S39MS40 
Sr^frtSZlfclCfcy, WDATA12 $:^|A t IT ISaI: L & L , 3£tc£BB£ 
*|g5££UT, HH^CLT, 02 5©|g|5g3 6fr>b0 

2 6<Z)|8Pg4 OlCfrlfT, ^-^BWRECOlfctej^^o©^-*^©-^ 
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WDATA12 1 WDATA131C O ^ X mj&X m<Z>Mffi £ ff O *^«Tfg 7?& Z> h Wfe £ tl £ . 
£.<blC H2 6(D©Pg4 1 &e>m2 KDmmS 9tmTs ^-^^SWRE^h, 
^ tf)^- # « B & flMt-r 3 2 o <b - # ^ B &c o v n T m$kl5 faMM^ \%<DM 

£ ff e> * # «r tg -5 £ w%. £ *i -5 o 

[0 10 2] 

iz£ y v-*:/a^A<D«^t#ff;b;ft£ 0 

[0103] 

®2 8 tc, i3 izm-rv-x^u ^f^h>^m.m\:hr=.m^n^nt=.-fu 

£ra*t". EI 3 {C^-ry-^yn lf^&<D 130ffBfrP>17 0 ff B {C £ VnTJ^T 

SBfc&fr £> IB 5> J: 3 3 *i £ ©-5 s - # £ B tt^fflf- # ^ B £ 0 
[0104] 
-IREC01 



— DATA11 




S : : 2 0) 


— DATA 12 




S : £3^-*, 3iB^ : 2 0) 


-DATA13 




S : ifc^v 2 -*, ^B« : 2 0) 


— DATA14 




S : Zfc^-?-*, : 2 0) 


M2 80) 1 3 Off BlC^^lC, Mtm<Dffi$k. Z-tl^CDr-Zmnte, 



WMZtiX^ZZHftftfrZo 
[0 10 5] 

Rl^tc, 03 iC^f V-^^n tf^&O) 2 1 Off B&t>*2 2 Off BtC*V>Tl[ 

*£BWDATA12&tfWDATA13te, ftSHfc&aia)*^ 7 s - * mtfi&&r- * X2b »J 
, «@^4t*5 1 ^0FILLER^BlC^3tlTVNS„ * fc, fl?«lC, EJ 3 fC 
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-r-#^Bte, 1 o<BFILLEItfgBJC£*&3ttTV*.5. 
[0106] 

^t&a^-^BcD^-^SlcWffifc^ m£j^<Z>-r-#3CB<Z)-r--#M&iB 
T%> J|^©FILLER^B<Z)^B«tt, mj»Stlfe-r-*^e©^B«©-^tf-{C 

mur&z. tot, un- Ko-tt^fcoTv^Sffc©^-*^*: 

[0107] 
[0 10 8] 

r©*^Mf r -^^B^JM$:^x.^#^[:MSiSSl ^c^v^T, *jt<fb&3l 

Mr? & £ V - * ^* v A tC*f L T, t-'-^^S e> la VL 

[0109] 
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[0 110] 

0 2 9fc, 03ic^1-y-xyn^AC5fc^M^-#«gtf>m^&?fo£^ 

[0111] 

y-x^n^Ait ms ic^-rcoBOLT*fHi# £ *i £ y - * y n ^ a {c^-r 
sft^fc&o,, cobol T'fs^$4x^y-xyn^9A^iBi^(c, Sii^MSisa 

1 cfcoTcwfgTta^^n^y-xyn^^Acfio^^M^-^^s^^-r 

^uy^&zmmit-t&t.. ®3 i ic^-r <fce>&y-*ya^A#?#e>*i£ 0 

C#fg(C(i, COBOL(Z)FILLER^@{Ct0^f -^>T r -^S^^^V^fe4?) > 0 3 
[0 112] 

03 o&tf0 3 i izm-fZoK, CB-fgT'iBKE$tifey-^y°n^vAT^o 

[0113] 

±IBC^TH&BJ!L£«MM3Iig*l \fzL-Z1tm^TMl&?ZZ 
£tfZ*£Z> 0 ^T, ny tf^. - # tf)#|/&lco v>T, 03 2 £M^TM-t&o 
0 3 2 {c^f i e>tcny hfi-^ 2 Ote, CPU 21, ^^U22, A^JiSS 

2 3, m^j|gtt2 4, ^PIB'H^S 2 5 , g£#£gi&i£g 2 6 , &tf*yhC7-* 



3 0 
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[0114] 

^=6U 2 2 MX-ti, ROM (Read Only Memory) , RAM (Random Acces 
s Memory) e>*X* :7n Afcf 5 - * 

*^'J 2 2lCteM£*l£„ T-*-^^@^m^2(Cj:oT»m$4xfeT r -^ 

»£, $ *lz%.mmT-*mMffl\&Btf* 2 o©^^y 2 3<z>yny 

U2 1H *^y 2 2 5:?(JMbT±l07 , n^7^^7t5r #51 
[0 115] 

;i/^r*fey, :i-if^e>c£*g^##©A*&cfflv^;ft,£ 0 ffi:fcgsfi2 4tt, #y 
, M^cffiA^Mv^fjtiS. A^7^tt2 3&i>*miJSS2 4 El l gda 

[0 116] 

j xtmm^T'&z. ftmmmmm 2 5 yn^^A^gM 1, 

^©^O^^ASrn^bf^-^ 2 0 ©#8Pffi«£S« 2 5 IC^#LT;I3£, ^gtC 
fSCT, -etl&Sr^^y 2 2 {CD - KLtftMtSIiltilftS. 
[0 117] 



3 1 
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^f-f^i', CD-ROM (Compact Disc Read Only Memory) , % : f^7.^, 
DVD (Digital Versati leDisk) ^ % ftMO n y¥ =l - $ M 

ZfemLT&g. &mizmvz. -£*l£=r:/tfzi-# 2 0©^=EU 2 21CD-K 
[0 118] 

*'yh , 7-^«S2 7it LAN, WAN^CDttS©* *y h 17-^ (0^ 
DT, i^^n^Afc^TOIIMfri^ttl&U, -€-n$:=r>tfn.-^ 2 0© 
[0 119] 

EI 3 2©n>tfrz.-^/\©^ci^vA©0-T-V >^£I£0HLT^ 

S 0 

^A&, iC^=i>t°^-^(Z)AiJiSg2 3 fr<bAt)-tZ>Z.£ £ LT=k J:V^ 
^T©<fce>lcbT=i>t^-#{cn- Kt5»^t§§ 0 Mill zn^tfa.-* 
T^^^'JnTfg ^13^^:2 9 (C_tfH^P^^A$:^^fH'|l$i±T^< 0 -£LT 
, El 3 3 iC^-r s fce»{CLT j e©fH^#:2 9frb7utr^A$:ziy¥=L-*izm 

frmz-ttx. ^(Dziy^a.-^0^=ev 2 2 ^fi-mmmm 2 5(c-b.^ms-& 

[0 12 0] 

C-^) 3 lHlt, -7u7^jA$:ziy¥3.-*iz#yyu-F-tz>z.££L 
=i>b?zL ^A&iiSts^n^A • f-^&^n 4^A • t-* 
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•x-^5:f#^ 0 iHf«<Z)=i>t?3.-# £^f§{fl![tf):2>tf:a.-#<Z)|!g£gs 

^ ^ ; u £ iift -r £ r £ & «r T- & z> „ 

[0121] 

y ^ -r )v \z <&m &*=ev m*. & <sm £ mmizay^^ji^nom^mt 
*mmimmmmiz. ^-^m^mm^im^^t^^izmm^^ 

[0 12 2] 

(tfiBl ) 7u?^2±*mm\:^&mffl*ny\£=L-z\zfsibi*:z > ziy\Z : L 

§ tc A 7^7 L tc -7 o ^ =r A £ ffi # -T -5 , 
[0 12 3] 
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[0124] 
[0 12 5] 

^£#Mh-r£#fEncfB«tf)=i>t^-# • ^n^^ 
(#IB5) t&SBJfc»lc#3^T, IfcjRflD^ffl^-itgCBfefi-S-rsn-KS 

[0 12 6] 

(#8B6) ^$n§MfB^IS:(Z)*MT : -^«g<D«g^{CS^V^TBuIE 
[0 12 7] 

ut, irfiBff^^^-^^g^^-^M^ig^-r^, 



3 4 
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[0 12 8] 

3 fc =fe 3€ tc tfffifffil £ BalH 3 > tTa.- # JCfffc-SS - fc £#$ltfc-f £#gB 5 iz 
[0 12 9] 

(#139) fufB«ffe^T : -^«@cD^@i&$:to^i : L,T^1-S, 

d SrX»c*tfiBIIf«:tir»=i> fcTa- * tCfrfcitS Zl fc &4#&fc iT£#fa 5 ic 
fB«©=r>t?rL-# • ^n^vAo 
[0 13 0] 

(#1310) B&IBfrfe^f-'-^SBcO^gi&S:, &*&3ftSt&iB»»<JD5fc£ 

r fc £ 35 JC^tMWffll&tfrgBii > tfa. - * icfrfc-Br-S 3 fc fc t"3#fB 5 fc 
gB«<Z)n>tfn-# • ^n^7A„ 
[0131] 

(#1311) ^;§S£*i£f<jg3^n^uMC«o*v\T, StffB^^U JiCDBtffB^ 
r fc &3€tc*tfW»«:t&ia=i > tf a - # tc 3 £ #^ fc f £ #gB l 

[0132] 

(#tai2) ^jestifctfrSB^n^A^e), *tfflf-^^i^^its 

3 fc £ 3€tc£tMW#ir«:*&IB=i y fcfn - # tcff 31 fc £#$ifc -f S#fB l 

[0133] 

(#fBl 3) yn^^A^S^t:-r-2>W$:=i>t: 0 ^-^{c^t»i±-5yo^ 



3 5 



ffiffi#2 003-3001441 



#2002-285046 
^ H £ ^ MJ^I £ m fa 3 > fcT a - # JC fr -5 y D ^ ^ A % f L tc 

o 

[0134] 

^mo^ptA< t%-m^mm^ ^mwico^m'r- ^u-k, 1 o©#f 

fete?- ic^-** S z: h # nftBa^frWjS u 
[0 13 5] 



3 6 
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[0 13 6] 
[01] 

[02] 
[S3] 

COBOL T*!B«& s tife y - ;* y n ^9 a©— « & j^tere* * . 
[04] 

[05] 

03 icatt-y-xyn y^Acf-^se^s&attgi (-e©2) -e&s. 

[06] 

03 (C^-tV-^yn^^AC7)T r -^^g^«§:^t-0 (^0)3) T*&£ 0 
[07] 
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[0 8] 
[09] 

7 s —Sf&B<Dl"(TV h<D—W&&-tm (-£©2) T'&Zo 
[Hi o] 

[011] 

[01 2] 
[013] 

Tfc^-r-^^Bu^htc^itisjK^^^&siwrsH (-e-©i) t&s. 

[014] . 

^rj^-^B Mc-£sfe*iS3t?>f >* (-£©2) tftS. 

[015] 

01 4lc^*W£^-*^BU* NK#*ftSjK>f >*©£8B# 

[016] 

i»l!lS©#II:^t7a-f^-h (-£©1) 7f*6. 
[01 7] 

iMSffl#li?:gt7D-ft-h (-£©2) 
[018] 

A^«S©^JiK£^-t:7n-^-Y- h (-£©3) -e&£„ 

[019] 

mmmfeo^mzm-t 7n-ft- h (-e©4) 

[02 0] 

0 3 tc^ f V - ^ y n ^ A Jc -d v \ T^WJ^ £ ft e> mis<D&&Lmiz fewsjg 
gA&tF^BB©S8j£rtg5MtKtc?fcipiJ^f s -^^B U * h©l*l^£^-f 0 (-£© 
1) T*&3 0 
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[H2 1] 

2) T'&S. 

[0 2 2] 

3) T*&£„ 

[02 3] 

0 3 ic^t- v - * ^5 a (co vNTjy$¥ff5g &ff e> ma?<D&®tmiz & # & m 
BA&xfmBB(DMfeftm&mz%;$\mT-*jg.Bvx b&ftmzB-tm (-£<£> 

4) T*&£o 

[02 4] 

m 3 tc^-r v - 7s u *f*7 a \z i^TMffiWfeZfi o m&<D&mmiz isttzm. 

5) T'&3 0 

[02 5] 

mz\zm^v-77u7^2±\z^^Tmmm*ftom&<D&®.mz&nz>i& 

6) T*&^>o 

[02 6] 

03 iZtt?v-x7uy^j±iz^^xmffiWfezfi$m&<D&mmz&vzjg 
s ARzfTgg b <Dmfeftm&mz5fcwmT- zmn v * h^^^^-rm (to 

7) T*&3 0 

[02 7] 

0 3ic^^y-^^n^^Aicov>r^^S:^e)«^co#^pglcfe^s« 

®Ajktf^B<Dnfe\Hmmmz^mi£¥-z-&%v v<DsHm^-tm (*<d 

8) T'fe-So 

[02 8] 
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[H2 9] 

[03 0] 

[03 1] 

[03 2] 
3 > H° n - # ©#jERBfr & -5 „ 
[03 3] 

[03 4] 

COBOL TfB^$tlfey->;^ p D^vA©-M$:^-r0"efe«>o 
[03 5] 

[03 6] 

c T* I B izE £ 4x £ y - 7s zf a 9 A © - M & m f 0 t? & & . 

[03 7] 

t£3fc&$F£ffiVNT0 3 9 fc^t-y-^D^A^j^Mr 1 -^^^ 

1 mmimmmm 

2 ^-^ajsmaj 

3 T-tmsmmftm® 

4 l^T^hSB 

6 mfawitm 
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8 mmmm^ft^ 

9 T-*mBM$J® 

1 0 Affl^i 

11 yn^^A^MSP 

12 ^-*«gj§¥#&M 

1 3 ^mfer- *ms v * b&mi® 

20 3>tfrL-^r 

2 1 CPU 
2 2 ^^E'J 

2 3 Afimm 

2 4 m^ms 

2 5 ^gpsH-is^a 

2 6 mtemmmw 

2 7 

2 8 AX 

2 9 «T^fB#^#: 

3 o ^n^A (^r-#) H£t# 

3 1 MB 

S ^f«yy 



4 1 ffi|E#2 0 0 3 -3 0 0 1 4 4 1 
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mm*] mm 
[an 
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[02] 



1 


r 






r 






r / 



1 

Yes 



< 




Yes 



No 



Yea 



No 



No 
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[03] 



000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. PRG1. 
000030 

000040 ENVIRONMENT DIVISION. 

000050 INPUT-OUTPUT SECTION. 

000060 FILE-CONTROL 

000070 SELECT IFILE01 ASSIGN SYSIN 

000080 . 

000090 

000100 DATA DIVISION. 
000110 FILE SECTION. 
000120 FD IFILE01. 

000130 01 IREC01. ffl T S§8E^« 

000140 03 IDATA11 PIC X(20). *>&&m I 

000150 03 IDATA12 PIC X(20). *>5fefi6ffl j 

000160 03 IDATA13 PIC X(20). *>*ffiffl j 

000170 03 IDATA14 PIC X(20). I 

000180 WORKING-STORAGE SECTION. 

000190 01 WREC01. 

000200 03 WDATA11 PIC 9(02). 

000210 03 WD ATA 12 PIC 9(02). *>5fcffiffl t jgffi&Jtf 

000220 03 WD ATA 1 3 PIC 9(02). *>5fe{£ffl I 

000230 03 WD ATA 14 PIC 9(02). 

000240 01 WREC02. *>=fc{sSffl t %BMgJ£ 

000250 03 WDATA21 PIC X(40). *>5fc<£ffl | 

000260 03 WDATA22 PIC X(40). *>5fcftffl I 

000270 77 WDATA71 PIC 9(02). *>jfcflUB 

000280 77 WDATA72 PIC 9(02). 

000290 

000300 PROCEDURE DIVISION. 

00031 0 MOVE 1 TO WDATA1 1 OF WREC01 . 

000320 MOVE 2 TO WDATA1 4 OF WREC01 . 

000330 COMPUTE WDATA72 = WDATA1 1 OF WREC01 + WD ATA 1 4 OF WREC01 . 
000340 DISPLAY WDATA72. 
000350 STOP RUN. 
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[04] 



<t> 




4> 



A 


1 

IDATA11 







IDATA12 




WRECOI^v 



4 
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[05] 



IREC01*Mt> 




WREC01 



4> 

4- 



WDATA1 1 



WDATA12 



WDATA13 



f 



WDATA14 



0 



WREC02^ 
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[06] 



WREC01 fr£> 
t- 



4> 



WREC02 



4> 



4- 



WDATA7 1 



4 



WDATA72 



1- 

4> 



4- 



WDATA21 



WDATA22 



1r 



4> 



6 
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[07] 




(a) 



IREG01 — > IDATA1 1 -» IDATA12 -* IDATA13 -> I DATA 14 



WREC01-> WDATA11-^WDATA12->WDATA13->WDATA14 n 



WREC02 -» WDATA21 -» WDATA22 



-*-WDATA71 



WDATA72-> 



(b) 
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[08] 



+ 0 



+20 


01 IREC01 


02 


IDATA1 1 


PIC X(20) 


+40 




02 


IDATA12 


PIC X(20) 


+60 




02 


IDATA13 


PIC X(20) 


+80 




02 


IDATA14 


PIC X(20) 



J 
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f ? -^S0u-<7'^h<7)-^j*^s(-ea)2) 



ffitt£<i(byte) 
+ 0 



+ 5 
+ 6 

+ 8 

+10 
+11 



01 DATA11 


02 DATA21 


03 DATA31 PIC X(5) 






03 FILLER PIC Xli&WUhl 






03 DATA32 PIC S9(4) BINARY 
SYNCHRONIZED 






03 DATA33 PIC S9(4) BINARY 
SYNCHRONIZED 




02 DATA22 



ffi*fi£ia(bit) 

+ 0 



+ 4 
+ 8 



02 DATA22 


03 DATA34 PIC 1 (4) BIT SYNCHRONIZED 




03 FILLER PIC 1(4) BITKBtftf?!*] 



9 
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[010] 



+ 0 



+08 



irec01 


char idatall 


[0] 


[1] 


[3] 




charpadl [/\°f-f>^] 




int idata12 



10 miiE#2 0 0 3 - 3 0 0 1 4 4 1 



#2 002 — 285046 



C01 1 3 




02 B1 X(10). 



02 B2 X(10). 




4> <t> 



(a) 




(c) 



(b) 




4> 

4- 



FILLER 



4> <t> 



(d) 



1 1 
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CHI 2] 





(a) 



*, — f 



FILLER 



ft 



— 01 FILLER PIC X(20) 



(b) 



(c) 




(d) 



1 2 
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[013] 



x-*fiBS$» 



1REC01 



WREC01 



WREC02^ 



IDATA11 



f 



ID ATA 1 2 



r* — 



IDATA1 3 

i — 



IDATA14 



WDATA1 1 

-* 



WDATA12 



WDATA13 

-i — 



WD AT A 1 4 

-* — 

WREC02^ -«£- 



WDATA22^ 



WDATA21- 



1 3 
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[014] 



WRECOlfrfc 



WREC02 



WDATA21 



WDATA22 



WDATA71 



WDATA72 



■t 

0 



1 4 



jiiiiE#2 003-3001441 



#2002—285046 

1 5] 



-«g«:{*«iprifi!ii«Rr} 

mft&O(rigA)0g£ 
*MfftO(4E g A)<Dt-*£! 



1 5 
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1 6] 



< 



*fUS(©-r-^lWy? > No - 



Yes 



I — Yes . 



< 





, } 






z.7-yzfs 1 7 



No 

_Jl_ 



fli B bicss y til Lfc jSB£ 



X-?^S18' 



I 

Yes 

_L_ 



> 



No 



© 



0 



■© 

■0 
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© 



< 



r 

Yes 



.■r^S21 



No 



© 



[mi 8] 



1 7 



ffiSE#2 003-3001441 



#2002-285046 



< 




< 



-i — 

Yes 
♦ 



> 



-No- 



JSBBli^SS^o? 



— I — 

Yes 
* 



m a Btte^xi^m a axm* 



< 



No 

_! 



< 



i 

Yes 
t 




XT?^S31 



I 

No 



«BAi«aB*< 



Yes 

i 




JigBSjfcgsEic-ra 



x-r^S35 



XT-y^S3< 









r 










&BB£*&jZiz+Z> 






-4 



1 8 



2 003-3001441 



#2002-285046 



1 9] 




Yes 





No 



0 



j 



1 9 
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msnBSIH^lKJlOBglllil 




1 


SCKXO) 








IREC01 (^->JDATA11(*-XlDATAt20fc.-X 
IDATA1 3(^,— XIDATA1 4(^5,— ),WDATA12(5fc.— ). 
WDATA13(^,-),WREO02 C*.-),WDATA21 (*.-). 
WDATA22C*.-) 


2 


S1l(0) 








IREC01 (* -XIDATA1 1(* -)JDATA12{*.->. 
ID ATA 1 3(*.— JJDATA1 4(?fc.— XWDATA1 2(5fc,— ). 
WDATAf 3<*.-XWREC02 (*,->.WDATA21 (*,->, 
WDATA220fe.-) 


3 


SI 2(0) 








IREC01 (*. - XIDATA1 1 - )J DATA 1 2C* - X 
IDATA13{*.-> I IDATA14C* ( -).WDATA12(* i -) t 
WDATA1 3(*. — ).WREC02 , — ).WD ATA2 1 (Sfc, — ), 
WDATA220fc.-) 


4 


S14(0) 


IREC01 


4> 


4> 


IREC01 a».-)JDATA11(*.-XIDATA12C*.-X 
IDATA13C*.-)JDATA14C5fe.-XWDATA12C* -). 
WDATA13(* i -XWREC02 (*.-XWDATA21 (*.-). 

VVLrM 1 t\£<L\sfZ,, ) 


5 


S16C0) 


IREC01 


IREC01 




IREC01 (jff.-XlDATAI 1(*.-).IDATA12(*.-X 
IDATA1 3(*. - XIDATA1 4C*. -XWOATAt 2(* .-). 
WDATAI3C* -XWREC02 (*,-).WDATA21 (*.-), 
WDATA22(*.-> 


6 


S14(0) 


IDATA11 


IREC01 




IREC01 CR.-XIDATA1 1CS».-XIDATA12(*.-X 
1 DATA 1 3(*. - XIDATA 1 4(5*, - X WDATA 1 2(* - ). 
WDATA13(* -XWREC02 (5fe-XWDATA21 (*.-). 
WDATA22C*.-) 


7 


SI 7(0) 


IDATA1 1 


IREC01 


IDATA11 


IREC01 (Sf.-XIDATAI 1(i^.-)JDATA12(*.-X 
IDATA1 3(*.-).IDATA14(?fe,-).WDATA1 2(*.-). 
WDATA1 3(* - XWREC02 C*. — XWDATA2 1 (*.-). 
WDATA22(*.-) 
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mz 1] 



[si9^6H»nfUlU 




S00(1) 








IDATA1 1 -) JDATA1 2(5fc 
IDATA1 3(*.-)JDATA14(* -),WDATA1 2(* -X 
WDATA1 3<sfc -XWREC02 (5fe - XWDATA2 1 (*,-), 


9 


Slid) 


— 




- 


IDATA11<^,-).IDATA12<5fc,-X 
IDATA1 3<*. - ).IDATA 1 4(*.-),WDATA1 
WDATA1 3(*u- XWREC02 - XWDATA21 <*.-). 


10 


S12<1) 


- 


<t> 




IDATAH(*,-)JDATA12(5te,-X 
IDATA1 3(* , - ),ID ATA1 4(* - XWDATA1 2(^ t - ), 
WDATA1 3<5fc- ),WREC02 - XWDATA2 1 (5fc. - \ 
WDATA22(5fc,--) 


11 


S14(1) 


IDATA11 






IDATA1 1(Sf.-XIDATA12(* 
IDATA13(*.-).IDATA14(*-XWDATA12(^-X 
WDATA13(*.-XWREC02 C* -XWDATA2K* -X 
WDATA22<sfc-) 


12 


S16(1) 


IDATA1I 


I DATA 1 1 




IDATA1 1(^-).IDATA12(5fe -). 
IDATA1 3(*. - XI DATA14<*. - ).WD ATA1 2(5|c. - X 
WDATA130fc-).WREC02 (* -XWDATA21(5t; -). 
WDATA22<*.-) 


13 


S14(1) 


f DATA 12 


IDATA11 




I DATA 1 1(^.-XIDATA12(S -X 
IDATA13(*-),IDATA14(*.-).WDATA12(^-X 
WDATA13<5fc .-XWREC02 {*. -XWDATA2K* .-). 
WDATA22(*-) 


14 


S17(1) 


IDATA12 


IDATAH 


IDATA12 


IDATA1 1(3».-XlDATA12(aF r -X 
IDATA1 3(5(S - XI DATA1 4(*, - XWDATA 1 2(*. - X 
WDATA1 3<ifc - XWREC02 - XWDATA2 1 (£ - X 
WDATA22(*,~) 



2 1 
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16 


S340) 


IDATA12 


ID ATA 1 1 


IDATA12 


IDATA1 1(3*,JRXIDATA12(3\-X 
IDATAI 3(5fe.-XlDATA1 4(Sfc,-XWDATA1 2(5fe.-X 

WDATA22(*,-) 


16 


S35(1) 


IDATA12 


ID ATA 1 1 


IDATA12 


IDATA1 1(S.*XIDATA12(S.SJX 
IDATA13(*-XIDATA14(* -XWDATAt2Gfc.-X 
wumimio^, ;,WnttiUZ — J.WL/A I f\A I — ), 
WDATA22(*.-) 


17 


S36(1) 


IDATAI 2 


ID ATA 11 


* 


IDATA1 1(^.*).IDATA1 2C8FJNX 1 
IDATAI 3<5fe.- XIDATA1 4C* , -XWDATA1 2C*. - ). 

AWKtliU^ J.WDATA2I v^C," A 
WDATA22(*,-) 


18 


S14(1) 


IDATA13 


I DATA 1 1 




IDATAI KSFJIMDATA12WJHX 
IDAT A1 3(S. - XIDATA1 4(*. - XWD ATA 1 2(*. - ), 

WDATA13(*.-XWREC02(*.-XWDATA21(*-X 
WDATA22(5fe,-) 


19 


S17(1) 


IDATA13 


IDATA1 1 


1 DATA 13 


IDATA1 1 « JDJDATA1 2<S\fflX 
IDATA13(S,-XlDATA14(ife.-XWDATA120fc.-X 
WDATA13(*-XWREC02 (* .-).WDATA21<* -). 
WDATA22(5fe,-) 


20 


S35(1> 


IDATA13 


IDATA1 1 


1 DATA 13 


IDATA1 1 CJff, JR),IDATA1 2QPFJHX 
IDATA13(^,fi9XlDATA14(*~XWDATA12(*.-X 
WDATA1 3(*. ~ XWREC02 (*. - XWDATA2 1 X 
WDATA22(*,-) 


21 


S36(1> 


IDATAI 3 


ID AT All 




IDATA1 1 WJUJDATA12C9UHX 
IDATA1 3(S.fiSXIDATA1 4(*.-),WDATA1 2(*.- X 
WDATA1 3(5fc.- XWREC02 (*.-- XWDATA21 ->, 
WDATA22(5fc.-) 
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mz 3] 



zz 


S14(1) 


IDATA14 


IDATA11 




IDATA1 1« JlXlDATA12«m 
ID ATA 1 3(^,fiJ)JDATAI4(3| t -) r WDATAl 2(5fc.-X 

YVDATA13<*-XWREC02(*.-XWDATA21(?fc-X 
WDATA22(ife-) 


23 


S17(1) 


IDATA14 


IDATA11 


ID ATA 14 


ID ATA 1 m*XlDATA1 2(55 JPJX 
ID ATA 1 3&f,My 'DATA 1 4(,S. - XWDATA1 2(*, - ). 
WDATA13(;fe.--XWREC02 C5fe .-XWDATA2K*.-). 
WDATA22(5fc.-) 


24 


S35(1) 


1 DATA 14 


IDATA1 1 


IDATA14 


IDATA1l(^,j6),IDATA1 2(3f,glJ). 
ID ATA 1 SC^.&JXlDATAM^.glXWDATAI 2(5*, - X 
WDATA13C* -XWREC02 C* i -XWDATA21 (*.-). 
WDATA22C*.-) 


25 


S36(1) 


IDATA14 


IDATA11 




IDATA1 KS8PJRXIDATA12GSJIJX 
IDATA1 3(a.^J)JDATA1 4<^r JIXWDATA1 2<*.-X 
WDATA13(*-XWREC02(5S.~XWDATA2U*,-X 
WDATA22C*-) 


26 


S14(1) 


WDATAI2 


IDATA1 1 


* 


ID ATA 1 l(»J|),IDATA12C».(KX 
IDATA13<*JiJXlDATA14(».fi<XWDATA12(»-X 
WDATA13{* -XWREC02 <* -XWDATA2K* 
WDATA22(*,-) 


27 


S17(1) 


WDATA12 


IDATA1 1 


WDATA12 


IDATA1 1(» JlXlDATA12CB.nl). 
IDATA1 3(S,ftl!XlDATA1 4(iff .MXWDATA1 2Gff . - X 
WD AT A 1 3(*, - XWREC02 (*, - XWDATA2 1 (*, - X 
WDATA22(*-) 






28 


S19C0) 


I0ATA11 


IREC01 


IDATAH 


IREC01 W.-XIDATA1 lCBfJIXIDATA12(Sfm 
IDATA1 30ff.HD.iO ATA 1 4<Sr ( ffi|),WDATA1 2(*. - X 
WDATA1 3(*, -XWREC02 (5fc,-XWDATA21 (*,-X 
WDATA22C*.-) 
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29 


S22(0) 


ID ATA 11 


IREC01 


IDATA11 


IRECOI JW.IDATA1 1 (S.JiXIDATA 1 2<S.Bj|X 
IDATA13C^r,»J)JDATAl4(^^IJ).WDATA12(^,~X 
WDATA13(*,-XWREC02 (*-XWDATA21 (*,-), 
WDATA22C*.-) 


30 


S23(0) 


ID ATA 11 


IREC01 


ID ATA 1 1 


IREC01 (SMW.IDATA1 1<^.&JXIDATA12(£M 
IDATA1 3QMJ) JDATA 1 4<Sr t 9J) l WDATA1 2(5fe - ), 
WDATA13(*-).WREC02 (*-),WDATA21 (5£,-), 
WDATA22C3;.-) 


31 


S24(0) 


ID ATA 11 


IREC01 




IRECOI (^.m)JDATA11(ar,filJ)JDATA12(J?,HlJX 
ID ATA 1 3CSS .M}JDATA14<*.i!|) f WDATA1 2(* 
WD AT A 1 3(* -),WREC02 (* WDATA21 (*,-). 
WDATA22C*.-) 


32 


SI 4(0) 


WD ATA 1 2 


IRECOI 


* 


IRECOI (3*,*).IDATA1 lOff.BO.IDATAiaWJUX 
IDATA13(J?.SlJ)JDATA14(^ f ^I).WDATA12{Sr-). 
WD AT A 1 3(* . - XWREC02 (* ->.WDATA21 

IJL/n ATA Ol/± > 

WD A 1 A2 — J 


33 


SI 7(0) 


WD ATA 1 2 


IRECOI 


WDATAI2 


IRECOI GR JUUQATA1 1(3?miDATA12(3f JiJ), 
IDATA 1 3W.IWJDATA1 4(».M).WDATA1 - ). 
WDATA1 3(*. - XWREC02 (*, -XWDATA21 C*. - ). 
WDATA22C*,-) 


34 


S39(0) 


WDATA12 


WD ATA 12 


WD ATA 1 2 


IRECOI (SMH)JDATAI 1 (3T.MXIDATA1 2Gff,M). 
IDATA13W.HJUDATA1 4CSFJW.WDATA1 2(3*.- ). ! 
WD ATA 1 «*. - XWREC02 (*, - XWDATA21 C* 
WDATA22(*,~) 


35 


S40(0) 


WDATAf 2 


WD ATA 12 




IRECOI <^,JRXIDATA1 1<»JB),IDATA12(3MJX 
IDATA 1 3(»,fiiJ)JDATAI 4(flF.ftJ).WDATA1 2(». - X 
WDATA1 3Ufe. - XWREC02 (* -XWDATA21 (*. - X 
WD ATA22(5fc, — ) 
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36 


S14(0) 


WDATA13 


WDATA12 




IREC01 (3URXIDATA1 1(35,ffl).IDATA12(Sff,BIJX 
ID ATA 1 3(^,MXlDATA14(af.SlJ),WDATA1 2«, 
WDATA13C*.-).WREC02 (*.-).WDATA21 <*.-). 
WDATA22(5fe,-) 


37 


SI 7(0) 


WD ATA 1 3 


WDATA12 


WD ATA 1 3 


IREC01 (»JI).IDATA1 1(3f .H!lXIDATA12(Sm 
IDATA1 3(3* J0XIDATA1 4(5lf,8iJ),WDATA1 2(Sfr .-), 
WDATA13(S?.-XWREC02 <*.-XWDATA21 <*,-), 
WDATA22(*,-) 


38 


S34C0) 


WDATA13 


WDATA12 


WDATA13 


IREC01 « JBJDATA1 1 WJWJDATA12W.BI). 
ID ATA 1 3(Sr,9J),IDATAl 4(^,gy),WDATA12(2ff.lR) 
WDATA13(»-),WREC502 (*-) < WDATA21(* 1 -), 
WDATA22(*-) 


39 


S35(0) 


WD ATA 1 3 


WDATA12 


WD ATA 1 3 


IREC01 (^,JB),IDATA1 1(^,SJ) f IDATA12<^Ji) f 
IDATA1 3(S».«1),IDATA1 4(3f ,N9 XWDATA 1 2(3? JB). 
WDATAiaC^.BlJXWRE^ (*-). WD ATA21 (*,-), 
WDATA22(*,-) 


40 


S36(0) 


WD ATA 13 


WD ATA 12 




IREC01 W,«) f IDATA1 1(2Sr.^)).IDATA12(^r,^, 
IDATA13(»,ftJ),IDATA14(Sl.fiiXWDATA12(S,J||X 
WD ATA 1 3CB.BOXWREC02 -),WDATA21(5fc ,-), 
WDATA22(5fe,-) 


41 


SI 4(0) 


WREC02 


WD ATA 12 


4> 


IREC01 S?,*XIDATA1 1 (JS.HIJXIDATA1 2(3S.»JX 
IDATA1 3Gtt.H 1XIDATA1 4(» JMXWDATA1 2<& JfeX 
WDATA13(3fJ8XWREC02 <9f.-).WDATA21 <*.-). 
WDATA22(*-) 


42 


S17(0) 


WREC02 


WD ATA 12 


WREC02 


IREC01 Ofr.JBXIDATAI 1 (^,HlJ).IDATA12(;*M 
IDATA1 3(S : J4XIDATA1 4(S5,filJXWDATA1 2«JM. 

WD AT A 1 3C%#JXWREC02 Off -XWDATA21 

WDATA22(5fc,-) 
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43 


S39(0) 


nine /v>o 

WREC02 


WREC02 


WREC02 


IREC01 (SF.WJDATA1 1 (9F.MXI DATA12(3t.H». 
IDATA13G& JM) JDAT A1 4(3*£H)>WDATA1 2<Sff JU. 
WD ATA 1 3^.fflXWREC02 (*,-),WDATA21 <*,-), 
WDATA22**.-) 


44 


S40(0) 


WREG02 


WREC02 




IRECQ1 (3f ,JR).IDATAn(S ; > B9).IDATA12(S.»]). 
ID ATA 1 3(^,S«)JDATA1 40*,I*J).WDATA1 2(&,*X 
WDATA1 3e£JlJ),WREC02 (£,~XWDATA21(=fc ,-). 
WDATA22(*,-) 


45 


SI 4(0) 


WDATA21 


WREC02 




IREC01 (SMS)JDATA! 1<SJHXlDATA12(5SJ*X 
IDATA1 3(& .BlJ),IDATA1 AiftM XWDATA1 2<& JfcX 
WDATA1 3(3M«.WREC02 <3f .-XWDATA21 (5$, -). 
WDATA22(5fc.-) 


46 


S17<0) 


WDATA21 


WREC02 


WDATA21 


IREC01 (3*,*XIDATA1 1(^»]).IDATA12(JS.fi»JX 
IDATA 1 3(2&.»J),IDATA1 4(gf,ffiXWDATA1 2(5& JSX 

WDATA13(^.MXWREC02 (S,-XWDATA21(^r 

WDATA22C*,-) 


[S19* 






47 


S00(l) 








WDATA21 Oft. -XIDATA22C* -) 


48 


S1KI3 








WDATA21 (*. -),IDATA22(*,- ) j 


49 


S120) 








WDATA21(*.-) ( IDATA22(*,-) \ 


50 


S14(l) 


WDATA21 


* 




WDATA21 (a* -)JDATA22(*,-) | 


51 


S16(l) 


WDATA21 


WDATA21 




WDATA21 (St , ~XlDATA22(5ft.-) 


52 


S14(l) 


WDATA22 


WDATA21 




WDATA21{»,-XIDATA22(S-) 


53 


S34(l) 


WDATA22 


WDATA21 


WDATA22 


WDATA21<3$,HXlDATA22(5fr -) 


54 


S350) 


WDATA22 


WDATA21 


WDATA22 


WDATA21 (JS f JIXIDATA22G5P ,M) 
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55 


S3*1) 


WDATA22 


WDATA21 


4> 


WDATA21 Of JSXIDATA22(3f .9M 






56 


S19C0) 


WDATA21 


WREC02 


WDATA21 


IREC01 W,JS),IDATA1 1 W.BBJDATA12WJHX 
IDATA13{^,fi|)JDATA14(S$.M).WDATA12(iBr.lK). 
WDATA1 3(3S.fW).WREC02 W -XWDATA21 W .*). 
WDATA22WJIJ) 


57 


S22<0) 


WDATA21 


WREC02 


WDATA21 


IREC01 WJIXIDATA1 iW.ffl), ID ATA12W.fi!]). 
IDATA13WiB)JDATA14(»JBXWDATAI2(» ( *) i 
WDATA13Cap,B©,WREC02 OfJIXWDATA2lW.il}. 
WDATA22W.8J) 


58 


S23(0) 


WDATA21 


WREC02 


WDATA21 


IREC01 W.JSXIDATA1 1 W.H«).fDATA12W,fia). 

IDATA13W,HH).IDATAI4WmWDATAl2(*.iD. 
WDATA1 3W.MXWREO02 W,*XWDATA21 W.fi«X 
WDATA22W.M) 


59 


S24<0) 


WDATA21 


WREC02 


4> 


IREC01 WJIXIDATA1 1 WJNXIDATA12W J|), 
IDATA1 3W.IWXIDATA1 4W.MXWDATA1 2W.JKX 
WDATA13W.MXWREC02 WJKXWDATA21 W.ffl), 
WDATA22W.M) 
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000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. PRG1. 
000030 

000040 ENVIRONMENT DIVISION. 

000050 INPUT-OUTPUT SECTION. 

000060 FILE-CONTROL. 

000070 SELECT IFILE01 ASSIGN SYSIN 

000080 . 

000090 

000100 DATA DIVISION. 
000110 FILE SECTION. 
000120 FD IFILE01. 

000130 01 FILLER PIC X(80). *>^{£ffl % KktfaWLOiSL&L 

000140* %m t 

000150* Hift t 
000160* t 
000170* ffc$jt 

0001 80 WORKING-STORAGE SECTION. 
000190 01 WREC01. 
000200 03 WD ATA 1 1 PIC 9(02). 
000210 03 FILLER PIC 9(04). *>3fc<£B3, 
000220* mtfy t 

000230 03 WDATA14 PIC 9(02). 

000240 01 FILLER PIC X(80). *>ifc<£ffl, !fefc]&0>^& 
000250* Jft& t 
000260* jftftj t 

000270 77 WDATA71 PIC 9(02). *>ife{£ffl 
000280 77 WDATA72 PIC 9(02). 
000290 

000300 PROCEDURE DIVISION. 

000310 MOVE 1 TO WDATA1 1 OF WREC01 . 

000320 MOVE 2 TO WDATA1 4 OF WREC01 . 

000330 COMPUTE WDATA72 = WDATA1 1 OF WREC01 + WDATA14 OF WREC01 
000340 DISPLAY WDATA72. 
000350 STOP RUN. 
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000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. PRG1 . 
000030 

000040 ENVIRONMENT DIVISION. 

000050 INPUT-OUTPUT SECTION. 

000060 FILE-CONTROL 

000070 SELECT IFILE01 ASSIGN SYSIN 

000080 . 

000)90 

000100 DATA DIVISION. 
000110 FILE SECTION. 
000120 FD IFILE01. 

000130 01 FILLER PIC X(80). *>^{£ffl % SI$?J§Ltf>iESfc 
000140*^*5 T 
000150* ftftt 
000160* mm t 

000170* mmi 

000180 WORKING-STORAGE SECTION, 
000190 01 WREC01. 
000200 03 WD ATA 11 PIC 9(02). 
000210 03 FILLER PIC 9(04). *>5fc{£ffl. 
000220* SS^t 

000230 03 WDATA14 PIC 9(02). 
000240* ffl& 
000250* Jfe&J 1 

000260* mm I 

000270* ftJBS 

000230 77 WDATA72 PIC 9(02). 
000290 

000300 PROCEDURE DIVISION. 

000310 MOVE 1 TO WDATA1 1 OF WREC01. 

000320 MOVE 2 TO WDATA14 OF WREC01. 

000330 COMPUTE WDATA72 = WDATA1 1 OF WREC01 + WDATA14 OF WREC01 
000340 DISPLAY WDATA72. 
000350 STOP RUN. 
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#include <stdio.h> 



struct { 
char idata11[20] 
char idata12[20] 
char idata13[20] 
char idata14[20]; 

}irec01; 



void main(void) { 
struct { 
short wdatal 1 
short wdatal 2; 
short wdatal 3 
short wdatal 4 
} wrec01 ; 



/**{£/!!*/ 



struct { 

char wdata21[40]; 

char wdata22[40]; 
} wrec02; 



short wdata71; 
short wdata72; 



} 



wrecOI. wdatal 1 = 1; 
wrecOl .wdatal 4 = 2; 

wdata72 = wrecOI .wdatal 1 + wrecOI .wdatal 4; 
printfr%d¥n". wdata72); 
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#include<stdio. h> 



char irec01[80]; ***J»*>3e*c*/ 



void ma in (void) ( 
struct { 

short wdata! 1 ; 
char wdata 12 [4] : 
short wdata14; 
)wrec01 ; 



char wrec02[80]; Mm'<k<D$z%t*/ 



short wdata71 ; 
short wdata72; 



wrecOI. wdata 1 1 = 1; 
wrecOI. wdata 14 = 2; 

wdata72=wrec01. wdata 11 + wrecOI. wdatal 4: 

printf C%d¥n". wdata72) ; 

1 
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[03 4] 



000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. PRG1. 
000030 

000040 ENVIRONMENT DIVISION. 

000050 INPUT-OUTPUT SECTION. 

000060 FILE-CONTROL 

000070 SELECT IFILE01 ASSIGN SYSIN 

000080. 

000090 

000100 DATA DIVISION. 
000110 FILE SECTION. 
000120 FD IFILE01. 
000130 01 IREC01. *>&&M 
000140 03 IDATA11 PIC X(20). *>?fc{|ffl 
000150 03 IDATA12 PIC X(20). *>&&m 
000160 03 IDATA13 PIC X(20). *>5fc<3UB 
000170 03 IDATA14 PIC X(20). *>5fc&ffl 
000180 WORKING-STORAGE SECTION. 
000190 01 WREC01. 
000200 03 WDATA11 PIC 9(02). 
000210 03 WDATA12 PIC 9(02). *>5fcG&flB 
000220 03 WDATA13 PIC 9(02). *>Sfc{£ffl 
000230 03 WDATA14 PIC 9(02). 
000240 01 WREC02. *>*ffiffl 
000250 03 WDATA21 PIC X(40). *>sfc<$ffl 
000260 03 WDATA22 PIC X(40). *>5fcflSffl 
000270 77 WDATA71 PIC 9(02). *>Sfc{£/fl 
000280 77 WDATA72 PIC 9(02). 
000290 

000300 PROCEDURE DIVISION. 

00031 0 MOVE 1 TO WD AT A 1 1 OF WREC01 . 

000320 MOVE 2 TO WDATA14 OF WREC01. 

000330 COMPUTE WDATA72 = WD ATA 1 1 OF WREC01 + WD ATA 1 4 OF WREC01 
000340 DISPLAY WDATA72. 
000350 STOP RUN. 
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000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. PRG1. 
000030 

000040 ENVIRONMENT DIVISION. 

000050 INPUT-OUTPUT SECTION. 

000060 FILE-CONTROL 

000070 SELECT IFILE01 ASSIGN SYSIN 

000080 . 

000090 

000100 DATA DIVISION. 

000110 FILE SECTION. 

000120 FD IFILE01. 

000130 01 IREC01. *>3M£ffl 

000140 03 IDATA11 PIC X(20). *>5fefi&/B 

000150 03 IDATA12 PIC X(20). *>5fci£ffl 

000160 03 IDATA13 PIC X(20). *>*{g/8 

000170 03 IDATA14 PIC X(20). *>Sfc{£JB 

000180 WORKING-STORAGE SECTION. 

000190 01 WREC01. 

000200 03 WDATA11 PIC 9(02). 

000210 03 WDATA12 PIC 9C02). *>?fc{£S3 

000220 03 WDATA13 PIC 9(02). *>5fc{£ffl 

000230 03 WD ATA 14 PIC 9(02). 

000240* %m 

000250* mf& 
000260* &m 
000270* Mtt 

000280 77 WDATA72 PIC 9(02). 
000290 

000300 PROCEDURE DIVISION. 

000310 MOVE 1 TO WDATA1 1 OF WREC01. 

000320 MOVE 2 TO WDATA14 OF WREC01. 

000330 COMPUTE WDATA72 = WDATA1 1 OF WREC01 + WDATA1 4 OF WREC01 . 
000340 DISPLAY WDATA72. 
000350 STOP RUN. 
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#include <stdio.h> 



struct { 

char idata11[20]; 

char idata12[20]; 

char idata13[20]; 

char idata14[20]; 
} irec01 ; 



void main(void) { 

struct { 
short wdatal 1 
short wdatal 2; 
short wdatal 3 
short wdatal 4; 

] wrecO! ; 



struct ( 

char wdata21 [40]; 

char wdata22[40]; 
} wrec02; 



short wdata71; 
short wdata72; 



} 



wrec01 .wdatal 1 = 1; 
wrecOI. wdatal 4 = 2; 

wdata72 = wrecOI .wdatal 1 + wrecOI. wdatal 4; 
printfOkWrT, wdata72); 
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#include <stdio.h> 
struct { 

char idata11[20]: /*BUI&*/ 
char idata12[20]; 
char idata13[20]; /*ffl$i*/ 
char idata14[20]; 
}irec01; /*fflfti*/ 

void mainCvoid) { 
struct { 

short wdatal 1 

short wdatal 2 

short wdatal 3 

short wdatal 4 
} wrecOl ; 

/* Mffc */ 
/* */ 

/*mn*/ 
/* mm */ 

/* nm */ 

short wdata72; 

wrecOl .wdatal 1 = 1; 
wrecOl .wdatal 4 = 2; 

wdata72 = wrecOl.wdatal 1 + wrecOl. wdatal 4; 
printfC'%d¥n", wdata72); 

} 
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